home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / halcn305.zip / TUTOR04.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-21  |  530b  |  24 lines

  1. Program Tutor04;
  2. {$N+,E+}          {Required for floating point number handling}
  3. uses
  4.    CRT,
  5.    GSOB_DBF;
  6. var
  7.    MyFile  : GSO_dBaseFld;
  8.    MFields : integer;
  9. begin
  10.    ClrScr;
  11.    with MyFile do
  12.    begin
  13.       Init('TUTOR1');
  14.       Open;
  15.       for MFields := 1 to NumFields do
  16.          writeln(MFields:3,'   ',
  17.                  FieldName(MFields),'  ',
  18.                  FieldType(MFields),'  ',
  19.                  FieldLength(MFields),'  ',
  20.                  FieldDecimals(MFields));
  21.       Close;
  22.    end;
  23. end.
  24.